Sub ȡָ·µļ() '֧ͨ
    
    On Error Resume Next
    Dim Mypath As String
    Dim fileName As String
    
    Mypath = "C:\Users\zyg365\Desktop\CT\" 'ļ·βС\
    
    fileName = Dir(Mypath & "*.png") 'ָļ
    'fileName = Dir(Mypath & "*.*") '֧ͨ
    'fileName = Dir(Mypath & "z*.*") '֧ͨļʼַΪz
    
    Dim N As Integer
    Do While fileName <> ""
        MsgBox fileName, , "ļ"
        fileName = Dir()
        N = N + 1
    Loop
    
    MsgBox "ļ" & N, , "ʾ"
End Sub